home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
pcboard
/
bnkpcb20.zip
/
BANKER.PPE
(
.txt
)
< prev
next >
Wrap
PCBoard Programming Language Executable
|
1996-04-27
|
15KB
|
848 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER003
Integer INTEGER004
Integer INTEGER005
Integer INTEGER006
Integer INTEGER007
Integer INTEGER008
Integer INTEGER009
Integer INTEGER010
Integer INTEGER011
Integer INTEGER012
Integer INTEGER013
Integer INTEGER014
Integer INTEGER015
Integer INTEGER016
Integer INTEGER017
Integer INTEGER018
Integer INTEGER019
Integer INTEGER020
Integer INTEGER021
Integer INTEGER023
Integer INTEGER025
Integer INTEGER027
String STRING004
String STRING005
String STRING006
String STRING007
String STRING008
String STRING009
String STRING010
String STRING011
String STRING012
String STRING013
String STRING014
String STRING015
String STRING016
String STRING017
String TSTRING018(2)
Declare Function FUNCTION001(Integer INTEGER022) Integer
Declare Function FUNCTION002(Integer INTEGER024) Integer
Declare Function FUNCTION003(Integer INTEGER026) Integer
Declare Procedure PROC001()
Declare Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
Declare Procedure PROC003()
;------------------------------------------------------------------------------
Goto LABEL001
End
;------------------------------------------------------------------------------
Procedure PROC001()
Integer INTEGER001
Integer INTEGER002
Byte BYTE001
INTEGER001 = GetDrive()
INTEGER002 = Os()
FOpen 1, PPEPath() + "BANKER.CFG", 0, 2
BYTE001 = FTell(1)
FClose 1
EndProc
;------------------------------------------------------------------------------
Procedure PROC002(Var String STRING001, Var String STRING002, Var String STRING003)
STRING001 = "NO"
STRING002 = "UNREGISTERED"
STRING003 = "UNREGISTERED"
EndProc
;------------------------------------------------------------------------------
Procedure PROC003()
Color 0
Cls
AnsiPos 25, 10
Print "@X0FSHAREWARE EVALUATION VERSION"
AnsiPos 20, 12
Print "@X0ECopyright 1995,96 (c) Shuttle Software"
AnsiPos 30, 14
Print "@X0EAll Rights Reserved"
Delay 55
EndProc
:LABEL001
TSTRING018(0) = "UserName,C,30,0"
TSTRING018(1) = "TimeSaved,N,6,0"
INTEGER003 = 0
INTEGER004 = 0
INTEGER005 = 0
INTEGER006 = 0
INTEGER007 = 0
INTEGER008 = 0
INTEGER009 = 0
INTEGER010 = 0
INTEGER011 = 0
INTEGER012 = 0
INTEGER013 = 0
INTEGER014 = 0
INTEGER015 = 0
INTEGER016 = 0
INTEGER017 = 0
INTEGER018 = 0
INTEGER019 = 0
INTEGER020 = 0
INTEGER021 = 0
STRING004 = "NO"
STRING005 = "YES"
STRING006 = "NO"
STRING007 = ""
STRING008 = "NO"
STRING009 = ""
STRING010 = ""
STRING011 = "YES"
STRING012 = ""
STRING013 = ""
STRING014 = ""
STRING015 = ""
STRING016 = ""
STRING017 = ""
PROC001()
STRING014 = PPEPath() + "BANKER.CFG"
FOpen 1, STRING014, 0, 2
FGet 1, INTEGER016
FGet 1, STRING011
FClose 1
STRING013 = PPEPath() + "TIME.CFG"
If (Exist(STRING013)) Then
FOpen 1, STRING013, 0, 2
FGet 1, INTEGER004
FGet 1, INTEGER017
FGet 1, INTEGER005
FGet 1, INTEGER018
FGet 1, INTEGER006
FGet 1, INTEGER019
FClose 1
Endif
If (Exist(STRING013)) Then
If (CurSec() == INTEGER004) Then
INTEGER016 = INTEGER017
Endif
If (CurSec() == INTEGER005) Then
INTEGER016 = INTEGER018
Endif
If (CurSec() == INTEGER006) Then
INTEGER016 = INTEGER019
Endif
Endif
INTEGER015 = INTEGER016
If (AnsiOn()) Then
PROC002(STRING017, STRING015, STRING016)
Log "-=≡[ Time Banker Entered ]≡=-", 0
Else
PrintLn "@X0CThis program requires that your ANSI support is enabled!"
Wait
End
Endif
STRING012 = PPEPath() + "BANKER.DBF"
STRING009 = PPEPath() + "BANKER.NDX"
Gosub LABEL002
If (INTEGER013 > INTEGER016) Then
INTEGER013 = INTEGER016
Color 0
Cls
AnsiPos 1, 11
PrintLn "@X8A Banker balance adjusted to reflect balance limit!"
AnsiPos 1, 20
Wait
Endif
INTEGER014 = MinLeft()
Gosub LABEL011
PROC003()
End
;------------------------------------------------------------------------------
Function FUNCTION001(Integer INTEGER022) Integer
Integer INTEGER024
If (Abs(INTEGER022) > INTEGER015) Then
PrintLn
PrintLn "@X0C The maximum allowable transaction is@X07: @X0A", INTEGER015
FUNCTION001 = 0
Else
FUNCTION001 = 1
Endif
EndFunc
;------------------------------------------------------------------------------
Function FUNCTION002(Integer INTEGER024) Integer
Integer INTEGER026
If (INTEGER013 + INTEGER024 > INTEGER016) Then
PrintLn
PrintLn "@X0C The maximum allowable balance is@X07: @X0A", INTEGER016
FUNCTION002 = 0
Else
FUNCTION002 = 1
Endif
EndFunc
;------------------------------------------------------------------------------
Function FUNCTION003(Integer INTEGER026) Integer
If ((FUNCTION001(INTEGER026) == 1) && (FUNCTION002(INTEGER026) == 1)) Then
INTEGER014 = INTEGER014 - INTEGER026
INTEGER013 = INTEGER013 + INTEGER026
FUNCTION003 = 1
Else
PrintLn
PrintLn "@X8C Transaction Not Processed!"
PrintLn
Wait
FUNCTION003 = 0
Endif
EndFunc
:LABEL002
DOpen 1, STRING012, 0
DnOpen 1, STRING009
DTag 1, "BANKER"
DSeek 1, U_Name()
If (DChkStat(1) == 0) Then
STRING008 = "YES"
STRING004 = "YES"
DGet 1, "TimeSaved", INTEGER013
Endif
DCloseAll
If (STRING008 == "NO") Gosub LABEL003
If (STRING004 == "NO") Then
PrintLn "@X0CError in DataBase!"
Wait
End
Endif
Return
:LABEL003
DOpen 1, STRING012, 1
DnOpen 1, STRING009
DNew 1
DPut 1, "UserName", U_Name()
DPut 1, "TimeSaved", 0
DAdd 1
DCloseAll
DOpen 1, STRING012, 0
DnOpen 1, STRING009
DTag 1, "BANKER"
DSeek 1, U_Name()
If (DChkStat(1) == 0) Then
STRING008 = "YES"
STRING004 = "YES"
DGet 1, "TimeSaved", INTEGER013
Endif
DCloseAll
Return
:LABEL004
DOpen 1, STRING012, 0
DnOpen 1, STRING009
DTag 1, "BANKER"
DSeek 1, U_Name()
If (DChkStat(1) == 0) Then
STRING008 = "YES"
STRING004 = "YES"
DPut 1, "TimeSaved", INTEGER013
Endif
DCloseAll
Return
:LABEL005
For INTEGER009 = 13 To 22
AnsiPos 1, INTEGER009
Color 0
ClrEol
Next
Return
:LABEL006
For INTEGER009 = 12 To 22
AnsiPos 1, INTEGER009
Color 0
ClrEol
Next
Return
:LABEL007
STRING006 = "NO"
If (INTEGER010 == 0) Return
If (INTEGER010 > INTEGER013) Then
AnsiPos 15, 16
PrintLn "@X0CSorry, but your maximum allowable bet is @X0A", INTEGER013
PrintLn
Wait
Return
Endif
INTEGER007 = Random(10)
INTEGER008 = Random(10)
While (STRING006 <> "YES") Do
STRING007 = ""
Color 0
Cls
PrintLn
PrintLn " @X0B▐@X10 @X1B┌─────────────────────────────────@X10┐ @X08▌@X0E"
PrintLn " @X0B▐@X10 @X1B│ @X1E-=≡[ HIGH-LOW ]≡=- @X10│ @X08▌@X0E"
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X10│ @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0E▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1ANumbers Range From 0 - 10 @X10│ @X08▌@X06▄▄@X0E▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0D▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X10│ @X08▌@X05▄▄@X0D▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0C▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1FFirst Number Selected Is: @X10│ @X08▌@X04▄▄@X0C▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B└@X10─────────────────────────────────┘ @X08▌@X02▄▄@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X07"
AnsiPos 52, 7
Print "@X1C", INTEGER007
AnsiPos 1, 12
PrintLn "@X0B ▐@X10 @X1B┌─────────────────────────────@X10┐ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B│ @X1EIS THE SECOND NUMBER @X10│ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B│ @X10│ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B│ [@X1EH@X10]@X1Figher than the number @X10│ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B│ [@X1EL@X10]@X1Fower than the number @X10│ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B│ [@X1ES@X10]@X1Fame as the number @X10│ @X08▌@X07"
PrintLn " @X0B▐@X10 @X1B└@X10─────────────────────────────┘ @X08▌@X07"
AnsiPos 51, 15
Print "@X1F", INTEGER007
AnsiPos 50, 16
Print "@X1F", INTEGER007
AnsiPos 47, 17
Print "@X1F", INTEGER007
AnsiPos 27, 20
Print "@X0AHigh-Low Command >>"
InputText " ", STRING007, 15, 1
If (Upper(STRING007) == "H") Then
If (INTEGER007 < INTEGER008) Then
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0A Correct! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0A You've just won @X0F", INTEGER010, "@X0A minutes!"
INTEGER013 = INTEGER013 + INTEGER010
STRING006 = "YES"
If (INTEGER013 > INTEGER016) Then
PrintLn
PrintLn "@X0C You're winnings have exceeded house limits! Your account has been adjusted."
INTEGER013 = INTEGER016
Endif
Goto LABEL008
Endif
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0C Wrong! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0C You've just lost @X0F", INTEGER010, "@X0C minutes!"
INTEGER013 = INTEGER013 - INTEGER010
STRING006 = "YES"
Endif
:LABEL008
If (Upper(STRING007) == "L") Then
If (INTEGER007 > INTEGER008) Then
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0A Correct! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0A You've just won @X0F", INTEGER010, "@X0A minutes!"
INTEGER013 = INTEGER013 + INTEGER010
STRING006 = "YES"
If (INTEGER013 > INTEGER016) Then
PrintLn
PrintLn "@X0C You're winnings have exceeded house limits! Your account has been adjusted."
INTEGER013 = INTEGER016
Endif
Goto LABEL009
Endif
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0C Wrong! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0C You've just lost @X0F", INTEGER010, "@X0C minutes!"
INTEGER013 = INTEGER013 - INTEGER010
STRING006 = "YES"
Endif
:LABEL009
If (Upper(STRING007) == "S") Then
If (INTEGER007 == INTEGER008) Then
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0A Correct! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0A You've just won @X0F", INTEGER010, "@X0A minutes!"
INTEGER013 = INTEGER013 + INTEGER010
STRING006 = "YES"
If (INTEGER013 > INTEGER016) Then
PrintLn
PrintLn "@X0C You're winnings have exceeded house limits! Your account has been adjusted."
INTEGER013 = INTEGER016
Endif
Continue
Endif
Gosub LABEL006
AnsiPos 1, 12
PrintLn "@X0C Wrong! The number was @X0F", INTEGER008
PrintLn
PrintLn "@X0C You've just lost @X0F", INTEGER010, "@X0C minutes!"
INTEGER013 = INTEGER013 - INTEGER010
STRING006 = "YES"
Endif
EndWhile
PrintLn
PrintLn
Wait
Return
:LABEL010
If (INTEGER020 == 19) Then
AnsiPos 25, 19
Print "@X1CQ@X1Fuit & exit back to the BBS @X1B"
Endif
If (INTEGER020 == 18) Then
AnsiPos 25, 18
Print "@X1CG@X1Famble some of my banked time@X1B"
Endif
If (INTEGER020 == 17) Then
AnsiPos 25, 17
Print "@X1CC@X1Follect time saved and quit @X1B"
Endif
If (INTEGER020 == 16) Then
AnsiPos 25, 16
Print "@X1CT@X1Fransfer time left and logoff@X1B"
Endif
If (INTEGER020 == 15) Then
AnsiPos 25, 15
Print "@X1CW@X1Fithdraw time from the banker@X1B"
Endif
If (INTEGER020 == 14) Then
AnsiPos 25, 14
Print "@X1CD@X1Feposit time into the banker @X1B"
Endif
If (INTEGER021 == 19) Then
AnsiPos 25, 19
Print "@X70Quit & exit back to the BBS @X1B"
Endif
If (INTEGER021 == 18) Then
AnsiPos 25, 18
Print "@X70Gamble some of my banked time@X1B"
Endif
If (INTEGER021 == 17) Then
AnsiPos 25, 17
Print "@X70Collect time saved and quit @X1B"
Endif
If (INTEGER021 == 16) Then
AnsiPos 25, 16
Print "@X70Transfer time left and logoff@X1B"
Endif
If (INTEGER021 == 15) Then
AnsiPos 25, 15
Print "@X70Withdraw time from the banker@X1B"
Endif
If (INTEGER021 == 14) Then
AnsiPos 25, 14
Print "@X70Deposit time into the banker @X1B"
Endif
Return
:LABEL011
While (Upper(STRING010) <> "Q") Do
STRING005 = "YES"
INTEGER010 = 0
INTEGER012 = 0
Color 0
Cls
PrintLn " @X0B▐@X1B ┌─────────────────────────────────────────────────────────────────@X10┐ @X08▌"
PrintLn " @X0B▐@X1B │ @X1ETIME BANKER v2.0 @X10│ @X08▌"
PrintLn " @X0B▐@X1B │ @X10│ @X08▌"
PrintLn " @X0B▐@X1B │ @X10│ @X08▌"
PrintLn " @X0B▐@X1B └@X10─────────────────────────────────────────────────────────────────┘ @X08▌"
PrintLn
AnsiPos 17, 4
Print "@X1FSysOp@X17: @X1F", STRING015
AnsiPos 43, 4
Print "@X1FBBS@X17: @X1F", STRING016
AnsiPos 1, 8
PrintLn "@X0E Maximum Allowed Account Balance @X07....... @X0A", INTEGER016, " @X02Minutes"
PrintLn "@X0E Your Current Time Banker Balance @X07...... @X0A", INTEGER013, " @X02Minutes"
PrintLn "@X0E Time Available Online For Today Is @X07.... @X0A", INTEGER014, " @X02Minutes"
AnsiPos 1, 13
PrintLn " @X0B▐@X10 @X1B┌─────────────────────────────────@X10┐ @X08▌@X0E"
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CD@X1Feposit time into the banker @X10│ @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0E▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CW@X1Fithdraw time from the banker @X10│ @X08▌@X06▄▄@X0E▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0D▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CT@X1Fransfer time left and logoff @X10│ @X08▌@X05▄▄@X0D▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0C▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CC@X1Follect time saved and quit @X10│ @X08▌@X04▄▄@X0C▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CG@X1Famble some of my banked time @X10│ @X08▌@X02▄▄@X0A▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn "@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄@X0B▐@X10 @X1B│ @X1CQ@X1Fuit & exit back to the BBS @X10│ @X08▌@X07▄▄@X0F▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄"
PrintLn " @X0B▐@X10 @X1B└@X10─────────────────────────────────┘ @X08▌@X0E"
PrintLn
Print "@X0A Use the @X0F @X0Aand @X0F @X0Akeys to highlight an option"
AnsiPos 25, 19
Print "@X70Quit & exit back to the BBS @X1B"
INTEGER020 = 19
INTEGER021 = 19
While (STRING005 <> "NO") Do
STRING010 = Inkey()
If (Left(STRING010, 2) == "UP") Then
If (INTEGER021 > 14) Then
INTEGER020 = INTEGER021
INTEGER021 = INTEGER021 - 1
Gosub LABEL010
Endif
Endif
If (Left(STRING010, 4) == "DOWN") Then
If (INTEGER021 < 19) Then
INTEGER020 = INTEGER021
INTEGER021 = INTEGER021 + 1
Gosub LABEL010
Endif
Endif
If (STRING010 == Chr(13)) Then
If (INTEGER021 == 14) Then
STRING010 = "D"
STRING005 = "NO"
Endif
If (INTEGER021 == 15) Then
STRING010 = "W"
STRING005 = "NO"
Endif
If (INTEGER021 == 16) Then
STRING010 = "T"
STRING005 = "NO"
Endif
If (INTEGER021 == 17) Then
STRING010 = "C"
STRING005 = "NO"
Endif
If (INTEGER021 == 18) Then
STRING010 = "G"
STRING005 = "NO"
Endif
If (INTEGER021 == 19) Then
STRING010 = "Q"
STRING005 = "NO"
Endif
Endif
If (Upper(STRING010) == Chr(68)) Then
STRING010 = "D"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(87)) Then
STRING010 = "W"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(84)) Then
STRING010 = "T"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(67)) Then
STRING010 = "C"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(71)) Then
STRING010 = "G"
STRING005 = "NO"
Endif
If (Upper(STRING010) == Chr(81)) Then
STRING010 = "Q"
STRING005 = "NO"
Endif
EndWhile
If (STRING010 == "T") Then
INTEGER012 = INTEGER014
If (INTEGER014 + INTEGER013 > INTEGER016) Then
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X0C This deposit is greater than your maximum allowable balance!"
PrintLn
PrintLn "@X0B Your Current Time Banker Balance Is @X07... @X0A", INTEGER013
PrintLn "@X0B Time Currently Available Online @X07....... @X0A", INTEGER014
PrintLn "@X0B Maximum Allowed Account Balance @X07....... @X0A", INTEGER016
PrintLn "@X0B Maximum Allowed Transaction @X07........... @X0A", INTEGER015
PrintLn
PrintLn "@X8C Transaction Not Processed!"
PrintLn
Wait
Goto LABEL012
Endif
INTEGER011 = FUNCTION003(INTEGER012)
Gosub LABEL004
Gosub LABEL005
AnsiPos 1, 15
Print "@X0A Transaction Processed!"
Delay 15
AdjTime -MinLeft()
Delay 6
AdjTime 1
Delay 15
If (STRING017 <> "YES") PROC003()
Bye
End
:LABEL012
Continue
Endif
If (STRING010 == "C") Then
If (EvtTimeAdj()) Goto LABEL015
If (INTEGER013 > 0) Then
If (INTEGER013 > INTEGER015) Then
Color 0
Cls
AnsiPos 1, 8
PrintLn "@X0C This withdrawl is greater than the maximum allowed transaction!"
PrintLn
PrintLn "@X0B Your Current Time Banker Balance Is @X07... @X0A", INTEGER013
PrintLn "@X0B Time Currently Available Online @X07....... @X0A", INTEGER014
PrintLn "@X0B Maximum Allowed Account Balance @X07....... @X0A", INTEGER016
PrintLn "@X0B Maximum Allowed Transaction @X07........... @X0A", INTEGER015
PrintLn
PrintLn "@X8C Transaction Not Processed!"
PrintLn
Wait
Goto LABEL013
Endif
AdjTime INTEGER013 + INTEGER014 - MinLeft()
INTEGER013 = 0
Gosub LABEL004
Gosub LABEL005
AnsiPos 1, 15
Print "@X0A Transaction Processed!"
Delay 36
If (STRING017 <> "YES") PROC003()
End
:LABEL013
Goto LABEL014
Endif
Gosub LABEL005
AnsiPos 10, 14
PrintLn "@X0CSorry, but your account is empty! Nothing here to withdraw..."
Delay 55
:LABEL014
Goto LABEL016
:LABEL015
Gosub LABEL005
AnsiPos 7, 14
PrintLn "@X0CSorry, but withdrawls are not available due to an upcoming event!"
Delay 55
:LABEL016
Continue
Endif
If (STRING010 == "D") Then
Gosub LABEL005
AnsiPos 1, 14
Print "@X0A How much time would you like to deposit"
InputInt " ", INTEGER012, 15
INTEGER012 = Abs(INTEGER012)
PrintLn
If (INTEGER012 > INTEGER014) Then
PrintLn
PrintLn
PrintLn "@X0C This deposit is greater than time available online!"
PrintLn
Wait
Goto LABEL017
Endif
INTEGER011 = FUNCTION003(INTEGER012)
:LABEL017
Continue
Endif
If (STRING010 == "W") Then
If (EvtTimeAdj()) Goto LABEL019
Gosub LABEL005
AnsiPos 1, 14
Print "@X0A How much time would you like to withdraw"
InputInt " ", INTEGER012, 15
INTEGER012 = Abs(INTEGER012)
PrintLn
If (INTEGER012 > INTEGER013) Then
PrintLn
PrintLn
PrintLn "@X0C This withdrawal is greater than your banked time!"
PrintLn
Wait
Goto LABEL018
Endif
Eval FUNCTION003(-INTEGER012)
:LABEL018
Goto LABEL020
:LABEL019
Gosub LABEL005
AnsiPos 7, 14
PrintLn "@X0CSorry, but withdrawls are not available due to an upcoming event!"
Delay 55
:LABEL020
Continue
Endif
If (STRING010 == "G") Then
If (Upper(STRING011) <> "YES") Then
Gosub LABEL005
AnsiPos 15, 14
Print "@X0CSorry, but this system does not condone gambling!"
Delay 55
Continue
Endif
If (INTEGER013 > 0) Then
If (INTEGER013 < INTEGER016) Then
Gosub LABEL005
AnsiPos 13, 14
Print "@X0AHow much time would you like to gamble"
InputInt " ", INTEGER010, 15
INTEGER010 = Abs(INTEGER010)
Gosub LABEL007
Goto LABEL021
Endif
Gosub LABEL005
AnsiPos 17, 14
Print "@X0CSorry, but your account is already maxed out!"
Delay 55
:LABEL021
Continue
Endif
Gosub LABEL005
AnsiPos 15, 14
Print "@X0CSorry, but you have no time saved to gamble with!"
Delay 55
Endif
EndWhile
AdjTime INTEGER014 - MinLeft()
Gosub LABEL004
Return
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 6 End
; 6 Cls
; 2 ClrEol
; 10 Wait
; 8 Color
; 100 Goto
; 129 Let
; 32 Print
; 103 PrintLn
; 77 If
; 3 FOpen
; 3 FClose
; 8 FGet
; 4 AdjTime
; 1 Log
; 3 InputInt
; 26 Gosub
; 10 Return
; 11 Delay
; 1 InputText
; 1 Bye
; 50 AnsiPos
; 3 EndProc
; 3 EndFunc
; 4 DOpen
; 4 DCloseAll
; 4 DnOpen
; 1 DNew
; 1 DAdd
; 3 DTag
; 3 DSeek
; 2 DGet
; 3 DPut
; 1 Eval
;
;
; ■ Functions used :
;
; 2 -
; 15 +
; 7 -
; 47 ==
; 6 <>
; 5 <
; 2 <=
; 15 >
; 4 >=
; 73 !
; 5 &&
; 2 ||
; 11 Upper()
; 2 Left()
; 7 Chr()
; 2 Random()
; 4 U_Name()
; 1 Inkey()
; 5 PPEPath()
; 3 CurSec()
; 4 MinLeft()
; 2 Exist()
; 1 AnsiOn()
; 4 Abs()
; 2 EvtTimeAdj()
; 3 DChkStat()
; 1 GetDrive()
; 1 FTell()
; 1 Os()
;
;------------------------------------------------------------------------------
;
; Analysis flags : A
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 2 For/Next
; 3 While/EndWhile
; 66 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------